The X-Philes (2nd Revision)/The X-Philes Number 1 (1995).iso/xphiles/hp48hor1/msg.src

Text File | 1991-02-21 | 883b | 22 lines

%%HP: T(3)A(D)F(.);
@ MSG, a simple error message viewer.
@ by Joseph K. Horn
@ To use: Press MSG key, type a hex integer, and press ENTER.
@ The message with that hex number will be displayed.
@ This is a handy way to check a library's messages or message translations.
@ (I wrote it purely to explore Bill Wickes' HYDE library!)
@ To abort without input, just press ENTER (don't press ON).

\<< "Message number:"  @ stack prompt (shown on top line).
{ "#h" 2 \Ga } INPUT  @ alpha mode; insert mode; hex input.
  IFERR OBJ\->  @ attempt to convert input string into hex integer.
    IFERR DOERR  @ force the specified error to occur.
    THEN         @ keep error from halting; just continue.
    END
    IFERR ERRM "\010" + 1 DISP 1 FREEZE @ show the error message.
    THEN @ handle bad error messages.
    END
  THEN DROP @ clean up if bad input.
  END
\>>